10 POKE53280,0:POKE53281,0
20 GOTO100
60 GETA$:IFA$=""THEN60
70 RETURN
100 PRINT"[147][153]        STAR TREK INSTRUCTIONS
110 [153]"        TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
500 PRINT"[158]WELCOME TO THE UNITED FEDERATION OF
510 [153]"PLANETS. YOUR MISSION WILL BE TO SEEK
520 PRINT"OUT AND DESTROY ALL OF THE [150]KLINGONS[158]
530 [153]"BEFORE THE TIME LIMIT RUNS OUT.
540 PRINT"YOU WILL SEE COMMAND COME UP AS WELL
550 [153]"AS HEAR THE TONE INDICATING THAT
560 PRINT"YOU MUST INPUT A RESPONSE.
570 [153]"THE COMMANDS ARE:
580 PRINT"  1  [153] NAVIGATE[158] (SET COURSE)
590 [153]"  2   PRINTSHORT RANGE SCANSYS
600 PRINT"  3  [153] LONG RANGE SCAN[158]
610 [153]"  4   FIREPRINT PHASERSSYS
620 PRINT"  5   FIRE[153] PHOTON TORPEDOS [158]
630 [153]"  6   RAISE/LOWER PRINTSHIELD STRENGTHSYS
640 PRINT"  7  [153] DAMAGE CONTROL[158] REPORT
650 [153]"  8   ENABLE PRINTLIBRARY COMPUTERSYS
660 PRINT"  9   ENABLE [153]TRACTOR BEAM[158]
670 [141]60
700 [153]"LOADTO ACTIVATE ANY OF THE DEVICES ALL YOU
710 PRINT"NEED DO IS PRESS THE APPROPIATE NUMBER
720 [153]"KEY. FOR PRINTPHASERSSYS TYPE A 4.
730 PRINT"IF YOU MAKE AN ERROR YOU'LL GET A LIST
735 [153]"OF CORRECT INPUT PROCEDURES.
740 PRINT"THE GALAXY IS DIVIDED INTO A 9 BY 9
750 [153]"QUADRANT GRID AND EACH QUADRANT IS
760 PRINT"FURTHER DIVIDED INTO AN 8 BY 8 GRID
770 [153]"AFTER YOU HAVE BEEN ASSIGNED A STARTING
780 PRINT"POSITION YOU WILL SEE A [153]SHORT RANGE
790 [153]"SCANSYS OF YOUR PRESENT POSITION, AT THIS
800 PRINT"POINT THE SIMULATION HAS BEGUN.
810 [153]"TO PRINTNAVIGATESYS YOU WILL BE ASKED TO INPUT
820 PRINT"A DIRECTION. THE
830 [153]"COURSE IS IN A             4  3  2SYS
840 PRINT"CIRCULAR NUMERICAL          [205] [194] [206]
850 [153]"VECTOR ARRANGEMENT        5SYSANDAND(null)PEEK(null)ANDAND1SYS
860 PRINT"AS SHOWN. INTEGER OR         [206][194][205]
870 [153]"REAL VALUES MAY BE USED.    (null) PEEK (null)
880 PRINT"IE 1.5 IS BETWEEN 1 AND 2  6  7  8[158]
900 [141]60
1000 [153]"LOADFOR DISTANCE YOU WILL BE ASKED FOR WARP
1010 PRINT"FACTOR. YOU CAN INPUT ANY VALUE UP TO
1020 [153]"AND INCLUDING 8. WARP 1 WILL MOVE YOU
1030 PRINT"A ONE QUADRANT DISTANCE AS 5.5 WILL MOVE";
1040 PRINT"YOU 5 AND A HALF QUADRANTS.
1050 [153]"A BIT OF PRACTICE WILL HELP WITH THINGS.
1060 PRINT"THE REST OF THE DEVICES ARE STRAIGHT
1070 [153]"FORWARD AND WILL BE EXPLAINED IN THE
1080 PRINT"SIMULATION ITS SELF. YOU WILL NOTE THE
1090 [153]"PRINTPHOTON TORPEDOSSYS ARE AIMED IN THE SAME
1100 PRINT"WAY [153]NAVIGATE[158] IS SET.
1110 [153]"THERE IS ALSO A PRINTTRACTOR BEAMSYS WHICH
1120 PRINT"CAN BE USED TO PULL IN A [150]KLINGON[158] IF HIS
1130 [153]"POWER LEVELS ARE VERY LOW.
1140 PRINT"THE [153]COMPUTER[158] HAS 5 FUNCTIONS AND IF
1150 [153]"YOU PLAY WITH THEM YOU'LL PICK UP THEIR
1160 PRINT"USES FASTER THAN I CAN EXPLAIN THEM.
1170 [141]60
2000 [153]"LOADTHE PRINTCOMPUTER LIBRARYSYS AND PRINTLONG RANGE
2005 PRINT"SCAN[158] ARE COLOUR CODED DEPENDING ON
2010 [153]"WHAT OR WHO IS IN WHICH QUADRANT.
2030 PRINT"THE COLOURS IN ORDER OF PRIORITY ARE:
2035 [153]"  OPENBLUE    218  ENTERPRISESYS LOACTION
2040 PRINT"  [150]RED     316  KLINGONS[158] PRESENT
2050 [153]"  PRINT#GREY    014  STARBASESYS PRESENT
2060 PRINT"  [153]GREEN   002  [158]SAFE QUADRANT
2070 [153]"  SYSYELLOW  ***  UNKNOWN AREA
2080 PRINT"WHAT THE NUMBERS MEANS IS SIMPLE
2090 [153]"FOR EXAMPLE THE OPEN218SYS ABOVE INDICATES:
2100 PRINT"  TOTAL [150]KLINGONS[158]:[159] 2 [158]- TWO [150]KLINGONS[158]
2110 [153]" TOTAL PRINT#STARBASESSYS:OPEN 1 SYS- ONE PRINT#STARBASESYS
2120 PRINT"     TOTAL STARS:[159] 8 [158]- EIGHT STARS
2130 [153]"IF A QUADRANT SHOWS NO STARS THEN IT
2140 PRINT"INDICATES A [150]NEBULA[158]. SCANS CAN'T
2150 [153]"PENITRATE THE GAS CLOUD OF A DEFNEBULASYS.
2800 GOSUB60
3000 PRINT"[147]THE [153]SHORT RANGE SCAN[158] MAY CONTAIN SEVERAL";
3010 PRINT"DIFFERENT OBJECTS. FIRST THERE WILL
3020 [153]"ALWAYS BE AN ENTERPRISESYS (UNLESS YOU BLOW";
3030 [153]"UP). IF YOUR NOT IN A DEFNEBULASYS,YOU WILL
3040 PRINT"WILL SEE DISTANT AND CLOSE STARS. THE
3050 [153]"STARS ARE FOR SHOW ONLY BUT THE CLOSE
3060 PRINT"ONES WILL BLOCK TORPEDO FIRE AND
3070 [153]"STARSHIP MOVEMENT.
3080 PRINT"THERE MAY ALSO BE A VERY TINY OBJECT
3090 [153]"WHICH LOOKS LIKE A BRIGHT (DISTANT) STAR";
3100 [153]". DON'T GO NEAR THIS, IT'S A DEFSPACEMINESYS
3110 PRINT"WHICH CAN RUIN YOU SIMULATION.
3120 [153]"THE OTHER OBJECTS ARE JUST THE DEFKLINGONSSYS
3130 PRINT"AND A [152]STARBASE[158], BOTH OF WHICH ARE EASY
3140 [153]"TO INDENTIFY.
3150 PRINT"FUTURE VERSIONS MAY HAVE OTHER SHIPS
3160 [153]"OF UNKNOWN ORIGIN. PRINTTACTICAL SENSERSSYS WILL";
3170 [153]"PROBE THE SHIP OR OBJECT.
3500 GOSUB60
4000 PRINT"[147]IF YOU ARE IN A [150]NEBULA[158] YOU WILL JUST
4010 [153]"SEE THE ENTERPRISESYS SURROUNDED BY A GAS
4020 PRINT"CLOUD. THE [153]LONG RANGE SCAN[158],[153] LIBRARY
4030 [153]"COMPUTERSYS,PRINT PHASERSSYS,PRINTTRACTOR BEAMSYS ANDPRINT
4040 PRINT"SHIELDS[158] WILL NOT FUNCTION IN THIS
4045 [153]"CONDITION.
4050 PRINT"THE OBJECT WILL BE TO FIND THE [150]KLINGON[158],
4060 [153]"IF HE'S THERE AT ALL. TO SEE HIM YOU
4070 PRINT"HAVE TO MOVE THE ENTERPRISE[158] ALONG SIDE
4080 [153]"OF HIM. HE WILL FIRE RANDOMLY WITH HIS
4090 PRINT"TOPEDOES SO WATCH OUT, REMEMBER YOUR
4100 [153]"PRINTSHIELDSSYS ARE OUT.
4110 PRINT"LEAVE ALL [150]NEBULAS[158] TO THE END BECAUSE
4120 [153]"IT REALLY CUTS INTO TO STARDATE TIME.
4130 PRINT"FOR EVERY DECIMAL (WARP) MOVE, YOUR
4140 [153]"STARDATE IS INCREASED BY THE SAME AMOUNT";
4150 [153]"TO A MAXIMUM OF 1.
4800 GOSUB60
5000 PRINT"[147]IN THIS VERSION OF [153]STAR TREK[158] THE
5010 [153]"DEFKLINGONS SYSWILL MOVE FROM QUADRANT TO
5020 PRINT"QUADRANT AS THE ENTERPRISE[158] MOVES TO
5030 [153]"THE NEXT QUADRANT. HOWEVER THE DEFKLINGONSYS
5040 PRINT"WON'T MOVE IF THE FOLLOWING IS TRUE:
5050 [153]"1. THE DEFKLINGONSYS IS GUARDING A PRINT#STARBASESYS
5060 PRINT"2. WITHIN 1 QUADRANT OF THE ENTERPRISE[158]
5070 [153]"3. NO DEFKLINGONSYS CAN BE FOUND (TO MOVE)
5080 PRINT"4. LOST IN A [150]NEBULA[158]
5090 [153]"ONLY ONE DEFKLINGONSYS WILL MOVE AT A TIME
5100 PRINT"(THIS CAN BE INCREASED IF NEEDED).
5110 [153]"ALSO INCLUDED IS A FEATURE THAT REQUIRES";
5120 [153]"THE USE OF A JOYSTICK. IF THEPRINT LIBRARY
5130 PRINT"COMPUTER[158] MALFUNCTIONS BEFORE A DOCKING
5140 [153]"PROCEDURE THEN YOU WILL BE REQUIRED TO
5150 PRINT"FLY THE ENTERPRISE [158]INTO THE DOCKING
5160 [153]"BAY. PLEASE BE CAREFUL AS YOU CAN ONLY
5170 PRINT"TOUCH THE DOCKING BAY FOR 2 SECONDS, ANY";
5180 PRINT"LONGER AND THE SIMULATION IS OVER
5190 [153]"(THERE MAY BE MORE WORK DONE IN THIS
5200 PRINT"AREA).
5800 [141]60
6000 [153]"LOADYOU WILL NOTE THAT THE PRINTPHASERSSYS WILL
6010 PRINT"PASS THROUGH (OR AROUND) ALL THE
6020 [153]"OBJECTS ON THE PRINTSHORT RANGE SCANSYS. THIS
6030 PRINT"WILL BE CHANGED LATER.
6040 [153]"WHEN ADEF KLINGONSYS FIRES HE CAN'T HIT ANY
6050 PRINT"OF THE[150] SPACEMINES[158] OR OTHER [150]KLINGONS[158]
6060 [153]"SO DON'T BE CONFIDENT THAT HIS SHOT
6070 PRINT"WILL MISS YOU.
6080 [153]"THE REST OF THE INFORMATION CAN BE
6090 PRINT"PICKED UP AS YOU PLAY THE GAME. BUT
6100 [153]"BECAUSE OF THE DETAIL PUT INTO MOST OF
6110 PRINT"THE SYSTEMS, IT MAY TAKE A WHILE TO PICK";
6120 PRINT"UP HOW THEY WORK OR INTERACT WITH EACH
6130 [153]"OTHER. I MUST POINT OUT THAT MAJOR
6140 PRINT"CHANGES WERE MADE FROM THE ORIGINAL
6150 [153]"VERSION.
6160 PRINT"PLEASE WATCH FOR REALISM IN HOW THE
6170 [153]"SYSTEMS OPERATE.
6800 GOSUB60
9000 PRINT"[147]PLEASE DROP ME A LINE IF YOU HAVE ANY
9040 [153]"QUESTIONS OR IDEAS. I'LL BE HAPPY TO
9050 PRINT"SUPPLY A MORE DETAILED DESCRIPTION OF
9060 [153]"THE SYSTEMS IF YOU WRITE.
9090 PRINT"         GOOD LUCK CAPTAIN...[158]
9100 [153]"   ADAPTED BY DAVE NEALE
9110 PRINT"              P.O. BOX 1324
9120 [153]"              MEAFORD, ONTARIO
9130 PRINT"              N0H-1Y0
9140 [153]"              (519) 538-1758
9800 PRINT"LOAD";CHR$(34);"BOOT STAR TREK";CHR$(34);",8[145][145][145]"